      subroutine logo(out1)
      implicit none
      integer out1
      write(21,'(20X,A54)')'*******************************************'
      write(21,'(18X,A54)')'***          My Quantum Chemistry     ***'
      write(21,'(18X,A54)')'***            version: develop       ***'
      write(21,'(18X,A54)')'***                   LHC             ***'
      write(21,'(18X,A54)')'***             University of jlu     ***'
      write(21,'(18X,A54)')'***                Group:ZZQ          ***'
      write(21,'(20X,A54)')'*******************************************'
      write(21,'(20X,A54)')'*******************************************' 
      end subroutine
